Option Explicit
Sub K_Sample009()
    Dim myRng  As Range
    Dim myAr() As Long
    Dim myCnt  As Long
    Dim myTmp  As Long
    Dim I      As Long
    Dim J      As Long
    myCnt = 100							'}Cn
    Set myRng = Worksheets.Add.Cells(1, 1).Resize(, 10)
    ReDim myAr(1 To myCnt)
    '}Cs@P
    For I = 1 To myCnt
        myAr(I) = I
        myRng.Cells(I) = myAr(I)
    Next
    MsgBox "HüƶiƧ"
    For I = 1 To myCnt
        Randomize
        J = Int((myCnt) * Rnd + 1)
        myTmp = myAr(I)
        myAr(I) = myAr(J)
        myAr(J) = myTmp
    Next
    With myRng
        For I = 1 To myCnt
            .Cells(I) = myAr(I)
        Next
    End With
    MsgBox "Ƨǧ"
    Set myRng = Nothing						'
End Sub
